(identifier-1 as type, identifier-2 as type, ..., identifier-n as type) RETURNING result |
... data division. working-storage section. 77 pics9 is typedef pic s9(9). 77 xanylen is typedef pic x any length. procedure division. identification division. method-id. met1 as "met1" (p1 as xanylen, p2 as xanylen, p3 as xanylen) returning rc as pics9. procedure division. main. display "Received:". display p1. display p2. display p3. display "Returning 1". move 1 to rc. end method. |